home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / emacs / emacs1857 / bin_d2.zoo / lisp / term / atari.el
Lisp/Scheme  |  1991-12-02  |  2KB  |  61 lines
  1. ;; Map atari st function key escape sequences
  2. ;; into the standard slots in function-keymap.
  3.  
  4. (require 'keypad)
  5.  
  6. (defvar st-map nil
  7.   "The st-map maps the function keys on the atari keyboard.")
  8.  
  9. (if (not st-map)
  10.     (progn
  11.      (setq st-map (lookup-key esc-map "*"))
  12.      (if (not (keymapp st-map))
  13.      (setq st-map (make-sparse-keymap)))  ;; <ESC>* commands
  14.      (setup-terminal-keymap st-map
  15.         '(("H" . ?u)        ; up arrow
  16.           ("P" . ?d)        ; down-arrow
  17.           ("M" . ?r)        ; right-arrow
  18.           ("K" . ?l)        ; left-arrow
  19.           ("G" . ?h)        ; Home
  20.           ("b" . ??)        ; Help
  21.           ("-" . ?-)        ; keypad -
  22.           ("." . ?.)        ; keypad .
  23.           ("0" . ?0)        ; 0
  24.           ("1" . ?1)        ; 1
  25.           ("2" . ?2)        ; 2
  26.           ("3" . ?3)        ; 3
  27.           ("4" . ?4)        ; 4
  28.           ("5" . ?5)        ; 5
  29.           ("6" . ?6)        ; 6
  30.           ("7" . ?7)        ; 7
  31.           ("8" . ?8)        ; 8
  32.           ("9" . ?9)        ; 9
  33.           (";" . ?\C-a)              ; F1
  34.           ("<" . ?\C-b)
  35.           ("=" . ?\C-c)
  36.           (">" . ?\C-d)
  37.           ("??" . ?\C-e)
  38.           ("@" . ?\C-f)
  39.           ("A" . ?\C-g)
  40.           ("B" . ?\C-h)
  41.           ("C" . ?\C-i)
  42.           ("D" . ?\C-j)
  43.           ("T" . ?\C-k)
  44.           ("U" . ?\C-l)
  45.           ("V" . ?\C-m)
  46.           ("W" . ?\C-n)
  47.           ("X" . ?\C-o)
  48.           ("Y" . ?\C-p)
  49.           ("Z" . ?\C-q)
  50.           ("[" . ?\C-r)
  51.           ("\\" . ?\C-s)
  52.           ("]" . ?\C-t)
  53.           ("\C-r" . ?A)        ; C-Insert -> insert line key
  54.           ("R" . ?I)        ; Insert
  55.           ("\C-p" . ?N)             ; C-downarrow -> next page key
  56.           ("\C-h" . ?P)        ; C-uparrow -> previous page key
  57.               ("a" . ?U)))        ; Undo
  58.  
  59.      (define-key esc-map "*" st-map)))
  60.  
  61.